home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…tion Library 4 (Reseller)
/
Apple Ref. & Pres. Lib.v4.0.iso
/
6-Apple⁄DEC Alliance
/
Solutions & Networking Guide
/
Macintosh Networking Guide
/
Macintosh Networking Guide
/
card_21891.txt
< prev
next >
Wrap
Text File
|
1990-04-17
|
17KB
|
660 lines
-- card: 21891 from stack: in
-- bmap block id: 22226
-- flags: 0000
-- background id: 18894
-- name: Network RoomMac
----- HyperTalk script -----
on openCard
global env,service,holder,prodname4,prodname5,network1,sol
set hilite of bkgnd btn "Application Level" to false
set hilite of bkgnd btn "Network Level" to true
set hilite of bkgnd btn "Hardware Level" to false
set hilite of bkgnd btn id 43 to false
set hilite of bkgnd btn id 52 to false
put "Network Level" into fld "Floorname"
put empty into cd fld "Protocol"
put empty into cd fld "Protocol2"
if env is "Mac" then
put "Macintosh" into cd fld "CPU"
put "Macintosh to Macintosh" && sol && "Room" into bkgnd fld 5 --id 41 --"solName"
else
put env into cd fld "CPU"
put env && "to Macintosh" && sol && "Room" into bkgnd fld 5 --id 41 --"solName"
end if
put "Macintosh Network Services" & return & "click on the Macintosh" into fld "Tell"
put card field (env && "Network Services") of card "Mac Grid" into holder
if holder is empty
then
put return & "No Solutions Installed" & return & "in this version" into fld "Tell"
exit openCard
end if
if service is empty then
if env is "Digital" then put "File Service" into service
if env is "IBM" then put "Terminal Emulation" into service
if env is "Mac" then put "File Service" into service
if env is "PC" then put "File Service" into service
if env is "Tandem" then put "Terminal Emulation" into service
if env is "UNIX" then put "File service" into service
if env is "Wang" then put "Terminal Emulation" into service
if network1 <> empty then
if network1 contains "File Transfer" then put "File Transfer" into service
if network1 contains "CL/1" then put "File Service" into service
if network1 contains "Client" then put "File Service" into service
if network1 contains "Translation" then put "Translation" into service
if network1 contains "Not" then put "Terminal Emulation" into service
end if
end if
put service into cd fld "Service"
put "Macintosh side:" & return into cd fld "Side1"
repeat with i = 1 to the number of lines of holder
if item 3 of line i of holder contains service then
if item 1 of line i of holder <> empty then
put item 1 of line i of holder & return after cd fld "Side1"
end if
end if
end repeat
if line 2 of cd fld "Side1" is empty then
put "No products of this type are installed in this version" after cd fld "Side1"
end if
if prodName4 <> empty
then
put "click for product info" into fld "click"
put prodname4 into fld "Prodname"
set hilite of bkgnd btn id 43 to true
end if
put "2nd Macintosh side:" & return into cd fld "Side2"
repeat with i = 1 to the number of lines of holder
if item 3 of line i of holder contains service then
if item 1 of line i of holder <> empty then
put item 1 of line i of holder & return after cd fld "Side2"
end if
end if
end repeat
if line 2 of cd fld "Side2" is empty then
put "No products of this type are installed in this version" after cd fld "Side2"
end if
if prodName5 <> empty
then
put prodname5 into fld "Prodname2"
set hilite of bkgnd btn id 52 to true
put "click for product info" into fld "click2"
end if
pass openCard
end openCard
on closeCard
hide cd fld "Side1"
put empty into cd fld "Side1"
hide cd fld "Side2"
put empty into cd fld "Side2"
put empty into fld "Prodname"
put empty into fld "Prodname2"
--put empty into cd fld "CPU"
put "" into fld "click"
put "" into fld "click2"
set hilite of bkgnd btn id 43 to false
set hilite of bkgnd btn id 52 to false
pass closeCard
end closeCard
on clean
put empty into cd fld "Protocol"
put empty into cd fld "Protocol2"
put empty into cd fld "Service"
put empty into fld "Network"
pass clean
end clean
on clean1
global prodname4,prodname5,protocol,protcol1
put empty into cd fld "Protocol"
put empty into cd fld "Protocol2"
put empty into cd fld "Service"
put empty into fld "Prodname"
put empty into fld "Prodname2"
set hilite of bkgnd btn id 52 to false
set hilite of bkgnd btn id 43 to false
put empty into prodname4
put empty into prodname5
put empty into protocol
put empty into protocol1
end clean1
-- part 91 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=246 top=85 right=123 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Protocol2
----- HyperTalk script -----
on mouseEnter
put "Product Protocol" & return & "go to Hardware for info" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
end mouseleave
on mouseUp
send mouseUp to bkgnd btn "Hardware Level"
end mouseUp
-- part 86 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=103 top=67 right=84 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: Title
-- part 85 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=244 top=67 right=84 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: Service
----- HyperTalk script -----
on mouseEnter
put "Current" & return & "Network Service" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
end mouseleave
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=303 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global env,service,hall,currentfloor,lastRoom
put env && service into lastRoom
put "2 Network Services" into currentfloor
set lockscreen to true
go to cd hall
unlock screen with dissolve
end mouseUp
on mouseEnter
changeCurs 6069
put "Exit to Hall" & return & "click to go to hall" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseLeave
-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=412 top=147 right=166 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: CPU
-- part 67 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=57 top=85 right=119 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Protocol
----- HyperTalk script -----
on mouseEnter
global env
changeCurs 6069
put "Product Protocol" & return & "go to Hardware for info" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
on mouseUp
send mouseUp to bkgnd btn "Hardware Level"
end mouseUp
-- part 79 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=78 top=198 right=210 bottom=129
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: services
----- HyperTalk script -----
on mouseUp
global Help
if Help then exit mouseUp
send mouseUp to btn id 77
end mouseUp
on mouseEnter
global Help
if Help then
put "'chooser' Button" & return & return & "Click this button to go to the Chooser screen" && "and select other network services" into field explainer
else
ChangeCurs 13000
put "'Chooser' Button" & return & "click to change service" into fld "Tell"
end if
end mouseEnter
on mouseLeave
global Help
if help then
else
changeCurs 6069
put empty into fld "Tell"
end if
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
-- part 78 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=62 top=128 right=212 bottom=149
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh
----- HyperTalk script -----
on mouseUp
set the visible of cd fld "Side1" to not the visible of cd fld "Side1"
end mouseUp
on mouseEnter
changeCurs 6069
put "Show Macintosh Products" & return & "click to select product" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 64 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=31 top=85 right=192 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Side1
----- HyperTalk script -----
on mouseUp
global holder,prodname4,protocol
put selectionAndHiliter() into cardline
put line cardline of me into prodname4
if prodname4 contains "side" then
hide cd btn "side1Hiliter"
hide me
put empty into prodname4
exit mouseup
end if
if prodname4 is empty or prodname4 contains "no Products" or prodname4 contains "this version" then
answer "Empty Choice!" with "Try Again"
exit mouseup
end if
put prodname4 into fld "Prodname"
set hilite of bkgnd btn id 43 to true
put "click for product info" into fld "click"
repeat with i = 1 to the number of lines of holder
if item 1 of line i of holder is prodname4 then
put item 6 of line i of holder into dotnames
put offset("•",dotnames) into num
if num is empty or num is 0 then
put "Click below left CPU to see more about" && prodname4 into cd fld "Protocol"
exit repeat
else
put char 1 to (num - 1) of dotnames into protocol
put prodname4 && "uses " & protocol into cd fld "Protocol"
end if
end if
end repeat
hide cd btn "side1Hiliter"
hide me
end mouseUP
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
changeCurs 6069
put "Products Field" & return & "click to select a product" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 82 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=410 top=198 right=210 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: services
----- HyperTalk script -----
on mouseUp
global Help
if Help then exit mouseUp
send mouseUp to btn id 80
end mouseUp
on mouseEnter
global Help
if Help then
put "'chooser' Button" & return & return & "Click this button to go to the Chooser screen" && "and select other network services" into field explainer
else
ChangeCurs 13000
put "'Chooser' Button" & return & "click to change service" into fld "Tell"
end if
end mouseEnter
on mouseLeave
global Help
if help then
else
changeCurs 6069
put empty into fld "Tell"
end if
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
-- part 81 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=376 top=130 right=213 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Host
----- HyperTalk script -----
on mouseUp
set the visible of cd fld "Side2" to not the visible of cd fld "Side2"
end mouseUp
on mouseEnter
global env
changeCurs 6069
put "Show" && env && "Products" & return & "click to select product" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 84 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=180 top=217 right=239 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Click for Services Chooser
----- HyperTalk script -----
on mouseEnter
global env
changeCurs 6069
put env && "Services Chooser" & return & "click to change service" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
Global prodname4,prodname5,protocol
get the loc of me
put it into MLoc
Put "Zoomer " & MLoc & "," & MLoc & "," & "254,151,278,166" into Zoomy
do Zoomy
Zoomer 254,151,278,166,8,4,507,336
unlock screen with dissolve
set cursor to busy
put "" into fld "Prodname"
put "" into fld "Prodname2"
hide cd fld "Side1"
hide cd fld "Side2"
set hilite of bkgnd btn id 43 to false
set hilite of bkgnd btn id 52 to false
put empty into cd fld "Side1"
put empty into cd fld "Side2"
put empty into cd fld "Protocol"
put empty into cd fld "Protocol2"
put "" into fld "click"
put "" into fld "click2"
put empty into prodname4
put empty into prodname5
put empty into protocol
set lockscreen to true
push card
go to cd "White"
go to cd "Chooser"
set cursor to hand
unlock screen with dissolve
end mouseUp
-- part 89 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=32 top=85 right=99 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: side1Hiliter
-- part 65 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=246 top=85 right=192 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Side2
----- HyperTalk script -----
on mouseUp
global holder,prodname5,protocol1
put selectionAndHiliter() into cardline
put line cardline of me into prodname5
if prodname5 is empty or prodname5 contains "no Products" or prodname5 contains "this version" then
answer "Empty Choice!" with "Try Again"
put empty into prodname5
exit mouseup
end if
if prodname5 contains "side:" then
hide cd btn "side2Hiliter"
hide me
exit mouseup
end if
--∆ Set up drawer below right CPU
put prodname5 into fld "Prodname2"
set hilite of bkgnd btn id 52 to true
put "click for product info" into fld "click2"
repeat with i = 1 to the number of lines of holder
if item 1 of line i of holder is prodname5 then
put item 6 of line i of holder into dotnames
put offset("•",dotnames) into num
if num is empty or num is 0 then
put "Click below right CPU to see more about" && prodname5 into cd fld "Protocol2"
exit repeat
else
put char 1 to (num - 1) of dotnames into protocol1
put prodname5 && "uses " & protocol1 into cd fld "Protocol2"
end if
end if
end repeat
hide cd btn "side2Hiliter"
hide me
end mouseUP
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
global env
changeCurs 6069
put "Macintosh Products Field" & return & "click to select a product" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 87 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=246 top=86 right=99 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: side2Hiliter
----- HyperTalk script -----
-- part contents for background part 41
----- text -----
Macintosh to Macintosh Network Services Room
-- part contents for background part 68
----- text -----
Network Level
-- part contents for card part 7
----- text -----
Macintosh
-- part contents for card part 85
----- text -----
File Service
-- part contents for card part 86
----- text -----
Current Service:
-- part contents for card part 67
----- text -----
AppleShare File Server 2.0 uses LocalTalk/Ethernet
-- part contents for card part 91
----- text -----
AppleShare File Server 2.0 uses LocalTalk/Ethernet